perm filename TEST.SAI[1,BGB] blob sn#103898 filedate 1974-05-26 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00003 ENDMK
C⊗;
BEGIN "TEST"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	ITG I,J,K,DEL;
	REAL X,Y;

	SAFE ITG ARRAY BUF[0:3000];
	OPEN(1,"DSK",8,0,3,0,0,0);
	ENTER(1,"MUSIC.MUS",0);
	K ← POINT(12,BUF[0],-1);
	FOR I←0 THRU 150 DO
BEGIN
	J ← 2047*SIN(I*2*π/150);
	IDPB(J,K);OUTSTR(CVS(J)&↓);
END;
	FOR I←1 THRU 600 DO
	ARRYOUT(1,BUF[0],50);
	RELEASE(1);
END "TEST";